home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 June: Reference Library / Dev.CD Jun 95 / Dev.CD Jun 95.toast / What's New? / Tool Chest / Interfaces / UniversalInterfaces 2.1B1 / AIncludes / EPPC.a < prev    next >
Encoding:
Text File  |  1995-04-18  |  4.3 KB  |  165 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        EPPC.a
  3. ;
  4. ;    Contains:    High Level Event Manager Interfaces.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Package:    Universal Interfaces 2.1ß1 in “MPW Prerelease” on ETO #17
  8. ;
  9. ;    Copyright:    © 1984-1995 by Apple Computer, Inc.
  10. ;                All rights reserved.
  11. ;
  12. ;    Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13. ;                stack.  Include the file and version information (from above)
  14. ;                in the problem description and send to:
  15. ;                    Internet:    apple.bugs@applelink.apple.com
  16. ;                    AppleLink:    APPLE.BUGS
  17. ;
  18. ;
  19.  
  20.     IF &TYPE('__EPPC__') = 'UNDEFINED' THEN
  21. __EPPC__ SET 1
  22.  
  23.  
  24.     IF &TYPE('__ERRORS__') = 'UNDEFINED' THEN
  25.     include 'Errors.a'
  26.     ENDIF
  27. ;        include 'ConditionalMacros.a'                                ;
  28.  
  29.     IF &TYPE('__APPLETALK__') = 'UNDEFINED' THEN
  30.     include 'AppleTalk.a'
  31.     ENDIF
  32. ;        include 'Types.a'                                            ;
  33. ;        include 'OSUtils.a'                                        ;
  34. ;            include 'MixedMode.a'                                    ;
  35. ;            include 'Memory.a'                                        ;
  36.  
  37.     IF &TYPE('__FILES__') = 'UNDEFINED' THEN
  38.     include 'Files.a'
  39.     ENDIF
  40.  
  41.     IF &TYPE('__PPCTOOLBOX__') = 'UNDEFINED' THEN
  42.     include 'PPCToolbox.a'
  43.     ENDIF
  44.  
  45.     IF &TYPE('__PROCESSES__') = 'UNDEFINED' THEN
  46.     include 'Processes.a'
  47.     ENDIF
  48. ;        include 'Events.a'                                            ;
  49. ;            include 'Quickdraw.a'                                    ;
  50. ;                include 'QuickdrawText.a'                            ;
  51.  
  52.     IF &TYPE('__EVENTS__') = 'UNDEFINED' THEN
  53.     include 'Events.a'
  54.     ENDIF
  55.  
  56. kHighLevelEvent                    EQU        23
  57. ; postOptions currently supported 
  58. receiverIDMask                    EQU        $0000F000
  59. receiverIDisPSN                    EQU        $00008000
  60. receiverIDisSignature            EQU        $00007000
  61. receiverIDisSessionID            EQU        $00006000
  62. receiverIDisTargetID            EQU        $00005000
  63. systemOptionsMask                EQU        $00000F00
  64. nReturnReceipt                    EQU        $00000200
  65. priorityMask                    EQU        $000000FF
  66. nAttnMsg                        EQU        $00000001
  67. ; constant for return receipts 
  68. HighLevelEventMsgClass            EQU        'jaym'
  69. rtrnReceiptMsgID                EQU        'rtrn'
  70. msgWasPartiallyAccepted            EQU        2
  71. msgWasFullyAccepted                EQU        1
  72. msgWasNotAccepted                EQU        0
  73.  
  74. TargetID                 RECORD    0
  75. sessionID                 ds.l   1        ; offset: $0 (0)
  76. name                     ds.l   18        ; offset: $4 (4)
  77. location                 ds.l   26        ; offset: $4C (76)
  78. recvrName                 ds.l   18        ; offset: $B4 (180)
  79. sizeof                     EQU *            ; size:   $FC (252)
  80.                         ENDR
  81.  
  82. ; typedef struct TargetID     TargetID
  83. ; typedef TargetID             *TargetIDPtr, **TargetIDHandle, **TargetIDHdl
  84. ; typedef TargetID             SenderID
  85. ; typedef SenderID             *SenderIDPtr
  86. HighLevelEventMsg         RECORD    0
  87. HighLevelEventMsgHeaderLength ds.w   1    ; offset: $0 (0)
  88. version                     ds.w   1        ; offset: $2 (2)
  89. reserved1                 ds.l   1        ; offset: $4 (4)
  90. theMsgEvent                 ds     EventRecord ; offset: $8 (8)
  91. userRefcon                 ds.l   1        ; offset: $18 (24)
  92. postingOptions             ds.l   1        ; offset: $1C (28)
  93. msgLength                 ds.l   1        ; offset: $20 (32)
  94. sizeof                     EQU *            ; size:   $24 (36)
  95.                         ENDR
  96.  
  97. ; typedef struct HighLevelEventMsg  HighLevelEventMsg
  98. ; typedef HighLevelEventMsg  *HighLevelEventMsgPtr, **HighLevelEventMsgHandle, **HighLevelEventMsgHdl
  99. ;
  100. ; pascal OSErr PostHighLevelEvent(const EventRecord *theEvent, unsigned long receiverID, unsigned long msgRefcon, Ptr msgBuff, unsigned long msgLen, unsigned long postingOptions)
  101. ;
  102.     IF ¬ GENERATINGCFM THEN
  103.         Macro
  104.         _PostHighLevelEvent
  105.             move.w    #$0034,-(sp)
  106.             dc.w     $A88F
  107.         EndM
  108.     ELSE
  109.         IMPORT_CFM_FUNCTION    PostHighLevelEvent
  110.     ENDIF
  111.  
  112. ;
  113. ; pascal OSErr AcceptHighLevelEvent(TargetID *sender, unsigned long *msgRefcon, Ptr msgBuff, unsigned long *msgLen)
  114. ;
  115.     IF ¬ GENERATINGCFM THEN
  116.         Macro
  117.         _AcceptHighLevelEvent
  118.             move.w    #$0033,-(sp)
  119.             dc.w     $A88F
  120.         EndM
  121.     ELSE
  122.         IMPORT_CFM_FUNCTION    AcceptHighLevelEvent
  123.     ENDIF
  124.  
  125. ;
  126. ; pascal OSErr GetProcessSerialNumberFromPortName(const PPCPortRec *portName, ProcessSerialNumber *pPSN)
  127. ;
  128.     IF ¬ GENERATINGCFM THEN
  129.         Macro
  130.         _GetProcessSerialNumberFromPortName
  131.             move.w    #$0035,-(sp)
  132.             dc.w     $A88F
  133.         EndM
  134.     ELSE
  135.         IMPORT_CFM_FUNCTION    GetProcessSerialNumberFromPortName
  136.     ENDIF
  137.  
  138. ;
  139. ; pascal OSErr GetPortNameFromProcessSerialNumber(PPCPortRec *portName, const ProcessSerialNumber *pPSN)
  140. ;
  141.     IF ¬ GENERATINGCFM THEN
  142.         Macro
  143.         _GetPortNameFromProcessSerialNumber
  144.             move.w    #$0046,-(sp)
  145.             dc.w     $A88F
  146.         EndM
  147.     ELSE
  148.         IMPORT_CFM_FUNCTION    GetPortNameFromProcessSerialNumber
  149.     ENDIF
  150.  
  151. ;
  152. ; pascal Boolean GetSpecificHighLevelEvent(GetSpecificFilterUPP aFilter, void *yourDataPtr, OSErr *err)
  153. ;
  154.     IF ¬ GENERATINGCFM THEN
  155.         Macro
  156.         _GetSpecificHighLevelEvent
  157.             move.w    #$0045,-(sp)
  158.             dc.w     $A88F
  159.         EndM
  160.     ELSE
  161.         IMPORT_CFM_FUNCTION    GetSpecificHighLevelEvent
  162.     ENDIF
  163.  
  164.     ENDIF ; __EPPC__
  165.